home *** CD-ROM | disk | FTP | other *** search
/ The CICA Windows Explosion! / The CICA Windows Explosion! - Disc 2.iso / misc / montor.zip / MONSRC.ZIP / MONTWARN.TXT < prev   
Text File  |  1993-09-16  |  2KB  |  75 lines
  1. VERSION 2.00
  2. Begin Form Form3 
  3.    BorderStyle     =   1  'Fixed Single
  4.    Caption         =   "MONTOR Warning"
  5.    ClientHeight    =   2070
  6.    ClientLeft      =   1680
  7.    ClientTop       =   2445
  8.    ClientWidth     =   4455
  9.    DrawStyle       =   6  'Inside Solid
  10.    Height          =   2595
  11.    Left            =   1620
  12.    LinkTopic       =   "Form3"
  13.    MaxButton       =   0   'False
  14.    ScaleHeight     =   2070
  15.    ScaleWidth      =   4455
  16.    Top             =   1980
  17.    Width           =   4575
  18.    Begin CommandButton Command2 
  19.       Caption         =   "&Help"
  20.       Height          =   495
  21.       Left            =   3480
  22.       TabIndex        =   3
  23.       Top             =   120
  24.       Width           =   855
  25.    End
  26.    Begin CommandButton Command1 
  27.       Caption         =   "Ok"
  28.       Default         =   -1  'True
  29.       Height          =   495
  30.       Left            =   2400
  31.       TabIndex        =   2
  32.       Top             =   120
  33.       Width           =   975
  34.    End
  35.    Begin Label Label2 
  36.       Height          =   1215
  37.       Left            =   120
  38.       TabIndex        =   1
  39.       Top             =   720
  40.       Width           =   4215
  41.    End
  42.    Begin Label Label1 
  43.       Alignment       =   2  'Center
  44.       BorderStyle     =   1  'Fixed Single
  45.       Caption         =   "WARNING!"
  46.       FontBold        =   -1  'True
  47.       FontItalic      =   0   'False
  48.       FontName        =   "MS Sans Serif"
  49.       FontSize        =   18
  50.       FontStrikethru  =   0   'False
  51.       FontUnderline   =   0   'False
  52.       ForeColor       =   &H000000FF&
  53.       Height          =   495
  54.       Left            =   120
  55.       TabIndex        =   0
  56.       Top             =   120
  57.       Width           =   2175
  58.    End
  59. End
  60. Option Explicit
  61.  
  62. Sub Command1_Click ()
  63.   Form3.Hide
  64. End Sub
  65.  
  66. Sub Command2_Click ()
  67.   Dim Success%
  68.   Success = WinHelpByNum(Form1.hWnd, App.HelpFile, HELP_CONTEXT, WarnHelp)
  69. End Sub
  70.  
  71. Sub Form_Load ()
  72.   Label2.Caption = WnTx
  73. End Sub
  74.  
  75.